home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / COCKTAIL.DIR / Internal_26_setttings for prep.ls < prev    next >
Encoding:
Text File  |  1997-03-05  |  2.1 KB  |  55 lines
  1. on exitFrame
  2.   global StartMusic, AfterFavorite, Choice, RecipeNum, StartingLine, forClear, LastMarker
  3.   set AfterFavorite to 0
  4.   set StartMusic to 1
  5.   cursor(4)
  6.   sound stop 1
  7.   set the itemDelimiter to "@"
  8.   windowRoutine()
  9.   set the scrollTop of member "shop1" to 0
  10.   set the scrollTop of member "shop2" to 0
  11.   put Choice into field "TarName"
  12.   set x to the number of lines in the text of member ("recipe" & RecipeNum)
  13.   set onTheBase to line x of the text of member ("recipe" & RecipeNum)
  14.   put onTheBase into field "TarBase"
  15.   set tarTime to line x - 6 of the text of member ("recipe" & RecipeNum)
  16.   put tarTime into field "TarTime"
  17.   set stuff1 to item 2 of the text of member ("recipe" & RecipeNum)
  18.   set stuff2 to item 3 of the text of member ("recipe" & RecipeNum)
  19.   set the text of member "tarinfo2" to stuff1 & RETURN & stuff2
  20.   set the textStyle of member "tarinfo2" to "plain"
  21.   set StartingLine to 1
  22.   set the text of member "tarinfo2temp" to line 1 to 12 of the text of member "tarinfo2"
  23.   if RecipeNum > 148 then
  24.     set vari to offset("below", field "tarinfo2")
  25.     set the textStyle of char 1 to vari + 4 of field "TarInfo2" to "bold"
  26.     set vari2 to offset("Variation:", field "tarinfo2")
  27.     if vari2 = 0 then
  28.       set vari2 to offset("Variations:", field "tarinfo2")
  29.     end if
  30.     set z to the number of chars in field "tarinfo2"
  31.     set the textStyle of char vari2 to z of field "TarInfo2" to "bold"
  32.   end if
  33.   set LastMarker to marker(0)
  34.   outOfObjects()
  35.   windowRoutine()
  36.   tell window "notes"
  37.     set currText to the text of field (50 + RecipeNum)
  38.   end tell
  39.   set the text of field "currNotes" to currText
  40.   if the number of lines in field "tarinfo2" <= the number of lines in field "tarinfo2temp" then
  41.     set the visible of sprite 14 to 0
  42.     set the visible of sprite 15 to 0
  43.   end if
  44.   close(window "notes")
  45.   set the visible of sprite 16 to 0
  46.   repeat with i = 19 to 29
  47.     set the visible of sprite i to 0
  48.   end repeat
  49.   repeat with i = 31 to 35
  50.     set the visible of sprite i to 0
  51.   end repeat
  52.   set the visible of sprite 38 to 0
  53.   set the visible of sprite 37 to 0
  54. end
  55.